5 POKE53281,0:POKE53280,0:PRINT"[147][159]"
10 POKE55,.:POKE56,64:CLR
12 SYS57812"DIRTOVAR.O",8,0:POKE780,0:POKE781,0:POKE782,141:SYS65493
16 SYS57812"TP1990.O",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
104 :
105 REM       SETUP STUFF...
106 :
110 Q$=CHR$(34):C=54272
115 TP$="[147][150]    [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 0"
117 SP$="                                      "
120 DIM TY$(144),NA$(144),LE$(144),TD$(23),LN$(23),PC%(23)
130 GOSUB1000:IFQTTHENPRINTTP$:GOTO2000
140 PRINTTP$:PRINT"[159]  [201]NSERT THE DISK WITH THE "Q$"T."Q$" [159]FILES"
145 PRINTTAB(11)"AND PRESS [211][208][193][195][197][154]."
150 GETA$:IFA$<>" "THEN150
160 PRINTTP$:PRINT"[159][210]EADING ALL "Q$"PRG"Q$" [159]FILES WITH "Q$"T."Q$" [159]NAMES."
180 SYS36096:I=1:J=1
190 PRINTTP$
200 IFNA$(I)=""THEN225
210 IFLEFT$(NA$(I),2)="T."THENTD$(J)=NA$(I):LN$(J)=LE$(I):J=J+1
220 I=I+1:GOTO200
225 IFJ=1THENPRINT"[159] [212]HERE ARE NO "Q$"T."Q$" [159]FILES ON THIS DISK.":GOTO2000
230 PRINT"[158]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
231 PRINTTAB(20-(LEN(NA$(0))/2)-1)"[179][129]"NA$(0)"[158][171]"
232 FORI=1TOJ-1:PRINT"  [158][221]"TAB(13)"[154]"TD$(I)TAB(30)"[152]"LN$(I)TAB(37)"[158][221]":NEXT
234 PRINT"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
240 K=1
245 POKE214,22:PRINT:PRINT" [195][210][211][210] [159]KEYS SELECT  [211][208][193][195][197] [159]TOGGLE  [193] [159]ALL"
247 PRINT"     [198]1 [159]PRINT THE HIGHLIGHTED FILES"
250 POKE214,K+1:PRINT:PRINTTAB(10)"[153][192]>[145]":POKE198,0
260 GETA$:IFA$=""THEN260
261 PRINTTAB(10)"  [145]"
262 IFA$="[145]"THENK=K-1:IFK<1THENK=J-1
264 IFA$=""THENK=K+1:IFK>J-1THENK=1
265 IFA$="[133]"THENPOKE214,22:PRINT:PRINTSP$:PRINTSP$"":GOTO300
268 IFA$<>"A"THEN280
269 PRINT"":FORI=1TOJ-1
270 IFPC%(I)=0THENPRINTTAB(13)""TD$(I):PC%(I)=1:GOTO274
272 IFPC%(I)THENPRINTTAB(13)"[154]"TD$(I):PC%(I)=0
274 NEXT:GOTO240
280 IFA$<>" "THEN250
282 IFPC%(K)THENPC%(K)=0:PRINTTAB(13)"[154]"TD$(K):GOTO250
284 PC%(K)=1:PRINTTAB(13)""TD$(K):GOTO250
300 POKE214,22:PRINT:PRINT"       [154]([208][154])AUSE   ([195][154])ONTINUE   ([211][154])TOP"
302 OPEN4,4,7:FORI=1TOJ:IFPC%(I)=0THEN380
305 POKE214,I+1:PRINT:PRINT"[153][210]EADING[145]"
310 SYS57812TD$(I),8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
320 POKE(PEEK(174)+256*PEEK(175)),0
330 PRINT"[153][208]RINTING[145]"
340 IFFL=1THENSYS49152,16384:GOTO360
345 IFFL=2THENSYS49158,16384:GOTO360
350 IFFL=3THENSYS49155,16384
360 PRINT"[153]        [145]"
380 NEXTI:CLOSE4:GOTO2000
1000 POKE53281,0:POKE53280,0
1010 PRINT"[147][159]"TP$
1030 PRINT"[153]      BY [211]COTT [210]ESH AND [198]ENDER [212]UCKER"
1092 PRINT"[155]    [205]AKE SURE YOUR PRINTER IS ON-LINE"
1094 PRINT" AND THE PRINT HEAD IS SET TO THE TOP"
1096 PRINT" OF A PAGE."
1100 PRINT"  [159](1[159]) [211]INGLE 38-CHARACTER COLUMN WITH"
1105 PRINT"      A LEFT MARGIN OF 24."
1110 PRINT"  [159](2[159]) [211]INGLE 65-CHARACTER COLUMN WITH"
1115 PRINT"      A LEFT MARGIN OF 10."
1120 PRINT"  [159](3[159]) [212]WO 38-CHARACTER COLUMNS WITH"
1125 PRINT"      A LEFT MARGIN OF 0."
1127 PRINT"  [159](4[159]) [210]ETURN TO [204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
1130 PRINT"[155]            [212]AKE YOUR PICK."
1140 GETA$:IFA$<"1"ORA$>"4"THEN1140
1145 IFA$="4"THENQT=1:RETURN
1150 FL=VAL(A$)
1160 RETURN
2000 PRINT"[147]"
2002 PRINTTAB(8)"[154]([196][154])O ANOTHER DISK"
2005 PRINTTAB(8)"[154]([210][154])ETURN TO [204][207][193][196][211][212][193][210] [194]RIEFS"
2010 POKE198,.
2020 GETA$:IFA$<>"D"ANDA$<>"R"THEN2020
2030 IFA$="D"THENRUN110
2040 OPEN15,8,15,"R0:LOADSTAR BRIEFS=LOADSTAR BRIEFS":INPUT#15,ER:CLOSE15
2050 IFER<>63THENEND
2060 PRINT"[147][144]LOAD"Q$"LOADSTAR BRIEFS"Q$",8"
2070 PRINT"RUN"
2080 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:TEXT PRINTER":CLOSE15:SAVE"TEXT PRINTER",8:END